Public Class PDTImport

    Private Sub FindFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindFile.Click

        OpenPDTFile.ShowDialog()
        FileLocation.Text = OpenPDTFile.FileName

    End Sub

    Private Sub ImportFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportFile.Click

        If FileLocation.Text.Length > 0 Then

            Dim pdt As New PoserDownloadTrackerImporter
            pdt.Import(FileLocation.Text)

        End If

    End Sub

End Class